home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / dev / amos / amoslist.lzh / AMOSLIST / 000138_amos-request@svcs1.digex.net_Fri Jan 24 20:08:06 1997.msg < prev    next >
Internet Message Format  |  1997-02-02  |  2KB
  1. Received: from svcs1.digex.net (svcs1.digex.net [204.91.197.224])
  2.     by mail2.access.digex.net (8.8.5/8.8.5) with ESMTP id UAA10513
  3.     for <mcox@access.digex.net>; Fri, 24 Jan 1997 20:08:04 -0500 (EST)
  4. Received: (from daemon@localhost)
  5.     by svcs1.digex.net (8.8.5/8.8.5) id RAA24232
  6.     for amos-out; Fri, 24 Jan 1997 17:32:00 -0500 (EST)
  7. Received: from mail3.access.digex.net (mail3.access.digex.net [205.197.247.4])
  8.     by svcs1.digex.net (8.8.5/8.8.5) with ESMTP id RAA24229
  9.     for <amos-list@svcs1.digex.net>; Fri, 24 Jan 1997 17:31:59 -0500 (EST)
  10. Received: from uno.canit.se (root@uno.canit.se [193.13.228.1])
  11.     by mail3.access.digex.net (8.8.5/8.8.5) with SMTP id RAA05037
  12.     for <amos-list@access.digex.net>; Fri, 24 Jan 1997 17:31:56 -0500 (EST)
  13. Received: (from uucp@localhost) by uno.canit.se (8.6.10/8.6.10) with UUCP id XAA10617 for access.digex.net!amos-list; Fri, 24 Jan 1997 23:25:45 +0100
  14. Received: by karkis.canit.se (V1.17-beta/Amiga)
  15.       id <0tkf@karkis.canit.se>; Fri, 24 Jan 97 23:09:36 CET
  16. Message-ID: <32e94108@karkis.canit.se>
  17. Date: 24 Jan 97 23:08:56 CET
  18. Organization: Karkis BBS, Stockholm, Sweden
  19. X-Mailer: AmiGate 1.6a (22.12.95)
  20. From: grok@karkis.canit.se (Hakan Venderlof)
  21. To: amos-list@access.digex.net
  22. Subject: rnd
  23. Status: RO
  24. X-Status: 
  25.  
  26. amos-list@access.digex.net
  27.  
  28. If someone's interested I finally got a program that goes randomly one time to
  29. each label: 
  30.  
  31.  
  32. Dim USED(10)
  33.  
  34. Do 
  35.  
  36. _START:
  37.  
  38. X=Rnd(9)+1
  39.  
  40. If USED(X)<>0 Then Goto _START
  41.  
  42. USED(X)=1
  43.  
  44. Goto(X)
  45. 1
  46. Print "1" : Goto _START
  47. 2
  48. Print "2" : Goto _START
  49. 3
  50. Print "3" : Goto _START
  51. 4
  52. Print "4" : Goto _START
  53. 5
  54. Print "5" : Goto _START
  55. 6
  56. Print "6" : Goto _START
  57. 7
  58. Print "7" : Goto _START
  59. 8
  60. Print "8" : Goto _START
  61. 9
  62. Print "9" : Goto _START
  63. 10
  64. Print "10" : Goto _START
  65.  
  66.  
  67. Loop 
  68.  
  69.  
  70. _______________________________________
  71. |                                     |
  72. | greets..............................|
  73. |                                     |
  74. | grok@karkis.canit.se  +46+08+7529323|
  75. |_____________________________________|
  76.  
  77.